#include <Windows.h>
#include "InitHelper.h"
#include "ToadDropTarget.h"

#define ID_LISTBOX_01 100

LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);

TCHAR szClassName[] = L"WindowsApp";
TCHAR szTitleText[] = L"NakedWindow";
int window_width = 544;
int window_height = 375;

int WINAPI WinMain (HINSTANCE hThisInstance,
                    HINSTANCE hPrevInstance,
                    LPSTR lpszArgument,
                    int nCmdShow)
{
    CInitHelper inithelper;

    HWND hwnd; /* This is the handle for our window */
    MSG messages; /* Here messages to the application are saved */
    WNDCLASSEX wincl; /* Data structure for the windowclass */
    HWND hwndedit1;
    HWND hwndlistbox1;

    /* The Window structure */
    wincl.hInstance = hThisInstance;
    wincl.lpszClassName = szClassName;
    wincl.lpfnWndProc = WindowProcedure; /* This function is called by windows */
    wincl.style = CS_DBLCLKS; /* Catch double-clicks */
    wincl.cbSize = sizeof (WNDCLASSEX);

    /* Use default icon and mouse-pointer */
    wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
    wincl.lpszMenuName = NULL; /* No menu */
    wincl.cbClsExtra = 0; /* No extra bytes after the window class */
    wincl.cbWndExtra = 0; /* structure or the window instance */
    /* Use Windows's default colour as the background of the window */
    wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND;

    /* Register the window class, and if it fails quit the program */
    if (!RegisterClassEx (&wincl))
        return 0;

    /* The class is registered, let's create the program*/
    hwnd = CreateWindowEx (
        WS_EX_ACCEPTFILES, /* Extended possibilites for variation */
        szClassName, /* Classname */
        szTitleText, /* Title Text */
        WS_OVERLAPPEDWINDOW, /* default window */
        CW_USEDEFAULT, /* Windows decides the position */
        CW_USEDEFAULT, /* where the window ends up on the screen */
        window_width, /* The programs width */
        window_height, /* and height in pixels */
        HWND_DESKTOP, /* The window is a child-window to desktop */
        NULL, /* No menu */
        hThisInstance, /* Program Instance handler */
        NULL /* No Window Creation data */
        );

    //::DragAcceptFiles(hwnd, TRUE);


    CToadDropTarget pTarget(hwnd);


    hwndlistbox1=CreateWindow(
        L"listbox",
        L"",
        WS_CHILD|WS_VISIBLE|LBS_STANDARD,
        0,30,500,100,
        hwnd,
        (HMENU)ID_LISTBOX_01,
        hThisInstance,
        NULL
        );



    /* Make the window visible on the screen */
    ShowWindow (hwnd, nCmdShow);

    /* Run the message loop. It will run until GetMessage() returns 0 */
    while (GetMessage (&messages, NULL, 0, 0))
    {
        /* Translate virtual-key messages into character messages */
        TranslateMessage(&messages);
        /* Send message to WindowProcedure */
        DispatchMessage(&messages);
    }

    /* The program return-value is 0 - The value that PostQuitMessage() gave */
    return messages.wParam;
}

VOID CALLBACK RequestQuit(HWND hwnd, UINT uMsg, UINT_PTR idEvent, DWORD dwTime)
{
    PostMessage(NULL, WM_QUIT, 0, 0);
}


LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    switch (message) /* handle the messages */
    {
    case WM_DESTROY:
        PostQuitMessage (0); /* send a WM_QUIT to the message queue */
        break;

    case WM_DROPFILES:
        {
            HDROP hDrop = (HDROP) wParam;

            int count=DragQueryFile(hDrop,0xFFFFFFFF,NULL,0);

            TCHAR *lpszFileName=new TCHAR[512];

            for(int i=0;i<count;i++)
            {
                int nCharactersLen= DragQueryFile(hDrop,i,NULL,100);

                DragQueryFile(hDrop, i, lpszFileName, nCharactersLen+1);

                HWND hChild = GetDlgItem(hwnd, ID_LISTBOX_01);

                ::SendMessage(hChild, LB_ADDSTRING, 0, (LPARAM)lpszFileName);

                //ListBox_AddString(GetDlgItem(hwnd,2),lpszFileName);

            }
            delete lpszFileName;

            DragFinish(hDrop);
        }
        break;

    case WM_LBUTTONUP:
        {
            //UINT uTimerId = ::SetTimer(NULL, 66, 5000, RequestQuit);
            //::MessageBox(NULL, NULL, NULL, MB_OK);
            //::KillTimer(NULL, uTimerId);
        }
        break;
        
    case WM_RBUTTONUP:
        {
            ::SendMessage((HWND)0x4E1484, WM_APP + 10, 0, 0);
        }
        break;

    case WM_LBUTTONDBLCLK:
        {
            ::MessageBox(NULL, NULL, NULL, MB_OK);
        }
        break;

    case WM_APP + 10:
        {
            ::Sleep(10000);
        }
        break;

    default: /* for messages that we don't deal with */
        return DefWindowProc (hwnd, message, wParam, lParam);
    }

    return 0;
}